SWAGOLX.EXE (c) 1993 GDSOFT ALL RIGHTS RESERVED 00012 NOVELL/LANTASTIC NETWORK ROUTINES 1 05-28-9313:52ALL SWAG SUPPORT TEAM DETCNETX.PAS IMPORT 13 {π▒i'm trying to find a method by which i can, from within a TP Program,π▒detect whether or not the NetWare shell has been loaded (Net3, NetX, orπ▒whatever); i've figured out how to determine if IPX is running, butπ▒can't seem to nail down the shell; the general idea is to detect IPX,π▒detect the shell, determine whether or not the user is logged in, and ifπ▒not, give them the oppurtUnity to do so; i've got most of the restπ▒figured out, but can't find the shell; any help would be greatlyπ▒appreciatedππTry Interrupt 21h, Function EAh, GetShellVersion;π}ππUsesπ {$IFDEF DPMI}π WinDos;π {$ELSE}π Dos;π {$endIF}πVarπ vOS,π vHardwareType,π vShellMajorVer,π vShellMinorVer,π vShellType,π vShellRevision : Byte;π {$IFDEF DPMI}π vRegs : tRegisters;π {$ELSE}π vRegs : Registers;π {$endIF}ππProcedure GetShellVersion;πbeginπ vOS := 0;π vHardwareType := 0;π vShellMajorVer := 0;π vShellMinorVer := 0;π vShellType := 0;π vShellRevision := 0;π FillChar(vRegs, SizeOf(vRegs), 0);π With vRegs DOπ beginπ AH := $EA;π Intr($21, vRegs);π vOS := AH; (* $00 = MS-Dos *)π vHardwareType := AL; (* $00 = PC, $01 = Victor 9000 *)π vShellMajorVer := BH;π vShellMinorVer := BL;π vShellType := CH; (* $00 = conventional memory *)π (* $01 = expanded memory *)π (* $02 = extended memory *)π vShellRevision := CL;π end;πend;ππbeginπ GetShellVersion;π Writeln(vOS);π Readln;πend. 2 05-28-9313:52ALL SWAG SUPPORT TEAM GET-ID1.PAS IMPORT 24 { TS> Can anybody help me finding the interrupt For gettingπ TS> a novell current user_name and the current station adress ??π}πProcedure GetConnectionInfoπ(Var LogicalStationNo: Integer; Var Name: String; Var HEX_ID: String;π Var ConnType : Integer; Var DateTime : String; Var retcode:Integer);ππVarπ Reg : Registers;π I,X : Integer;π RequestBuffer : Recordπ PacketLength : Integer;π FunctionVal : Byte;π ConnectionNo : Byte;π end;π ReplyBuffer : Recordπ ReturnLength : Integer;π UniqueID1 : Packed Array [1..2] of Byte;π UniqueID2 : Packed Array [1..2] of Byte;π ConnType : Packed Array [1..2] of Byte;π ObjectName : Packed Array [1..48] of Byte;π LoginTime : Packed Array [1..8] of Byte;π end;π Month : String[3];π Year,π Day,π Hour,π Minute : String[2];ππbeginπ With RequestBuffer Do beginπ PacketLength := 2;π FunctionVal := 22; { 22 = Get Station Info }π ConnectionNo := LogicalStationNo;π end;π ReplyBuffer.ReturnLength := 62;π With Reg Do beginπ Ah := $e3;π Ds := Seg(RequestBuffer);π Si := ofs(RequestBuffer);π Es := Seg(ReplyBuffer);π Di := ofs(ReplyBuffer);π end;π MsDos(Reg);π name := '';π hex_id := '';π connType := 0;π datetime := '';π if Reg.al = 0 then beginπ With ReplyBuffer Do beginπ I := 1;π While (I <= 48) and (ObjectName[I] <> 0) Do beginπ Name[I] := Chr(Objectname[I]);π I := I + 1;π end { While };π Name[0] := Chr(I - 1);π if name<>'' thenπ beginπ Str(LoginTime[1]:2,Year);π Month := Months[LoginTime[2]];π Str(LoginTime[3]:2,Day);π Str(LoginTime[4]:2,Hour);π Str(LoginTime[5]:2,Minute);π if Day[1] = ' ' then Day[1] := '0';π if Hour[1] = ' ' then Hour[1] := '0';π if Minute[1] = ' ' then Minute[1] := '0';π DateTime := Day+'-'+Month+'-'+Year+' ' + Hour + ':' + Minute;π end;π end { With };π end;π retcode := reg.al;π if name<>'' thenπ beginπ hex_id := '';π hex_id := hexdigits[replybuffer.uniqueid1[1] shr 4];π hex_id := hex_id + hexdigits[replybuffer.uniqueid1[1] and $0F];π hex_id := hex_id + hexdigits[replybuffer.uniqueid1[2] shr 4];π hex_id := hex_id + hexdigits[replybuffer.uniqueid1[2] and $0F];π hex_id := hex_id + hexdigits[replybuffer.uniqueid2[1] shr 4];π hex_id := hex_id + hexdigits[replybuffer.uniqueid2[1] and $0F];π hex_id := hex_id + hexdigits[replybuffer.uniqueid2[2] shr 4];π hex_id := hex_id + hexdigits[replybuffer.uniqueid2[2] and $0F];π ConnType := replybuffer.connType[2];π { Now we chop off leading zeros }π While hex_id[1]='0' do hex_id := copy(hex_id,2,length(hex_id));π end;πend; { GetConnectInfo };ππ 3 05-28-9313:52ALL SWAG SUPPORT TEAM GET-ID2.PAS IMPORT 19 {π> Okay, here goes. I am using Borland Pascal 7.0 under MS-Dos 5.0.π>Basically, the Program I am writing will be run under Novell Netwareπ>3.11. What I need to do is determine the User's full user name. Iπ>could do this using Novell Interrupts, but they are impossible to figureπ>out (At least For me). So what I wanted to do, was use Novell'sπ>"WHOAMI" command. What this does is return the user's full name andππWell, I think you'll find it harder to to a Dos exec and parse the output afterπreading it from a File than asking Netware what it is. Plus you must depend onπthe user having access to use the command. I'm on some Novell networks whereπthat command File is not present because it wasn't considered important.πHere's how to get the user name from Netware...π}πProgram UserID;ππUsesπ Dos, Strings;ππTypeπ RequestBuf = Recordπ RequestLen : Word; { Number of Bytes in the rest of the Record }π SubFunction : Byte; { Function from Novell we are requesting }π ConnectionNum : Byte; { Connection number that is making the call }π end;ππ ReplyBuf = Recordπ ReplyLength : Word; { Number of Bytes in the rest of the Record }π ObjectId : LongInt; { Novell refers to everything by Objects like users}π ObjectType : Word;π ObjectName : Array[1..48] of Char;π LoginTime : Array[1..7] of Char;π end;ππVarπ I:Word;π ReqBuf : RequestBuf;π RepBuf : ReplyBuf;π Regs : Registers;π UserName : String[48];ππbeginπ Regs.AH := $DC;π MsDos(Regs); { Get the connection number }ππ ReqBuf.RequestLen := 2; { User ID request, must give connection }π ReqBuf.SubFunction := $16; { number }π ReqBuf.ConnectionNum := Regs.AL;ππ RepBuf.ReplyLength := 61; { Return buffer For name }ππ Regs.AH := $E3; { Call Novell For user name }π Regs.DS := Seg(ReqBuf); { Passing it the request buffer indicating }π Regs.SI := Ofs(ReqBuf); { the data we want and a reply buffer to send }π Regs.ES := Seg(RepBuf); { us back the information }π Regs.DI := Ofs(RepBuf);π MsDos(Regs);ππ { Object name now contians the users ID, use the StringS Unit Functions }π { to print the null-terminated String }π WriteLn(StrPas(@RepBuf.ObjectName));πend.ππ{πThat will read in a Novell User ID For you.π}π 4 05-28-9313:52ALL SWAG SUPPORT TEAM GET-ID3.PAS IMPORT 22 {π[ Does anyone know the syntax For Novell-specific interrupts in Pascalπ[(or C)? I have posted this message in all the pascal confs nad haven'tπ[had any replies. Any help is appreciated.π[ Specifically, I need to use interrupts to find the username, securityπ[in a certain directory and groups belongs to.ππSince this is Novell-specific I hope the moderator won't mind if Iπanswer this one in this conference, rather than Pascal conf...ππYou Absolutely NEED a copy of "System Calls - Dos" from Novell. Thisπbook has every last call you'll ever need For getting inFormation out ofπNetWare. Warning: some of their inFormation is erroneous, and you'llπjust have to do things like count up the size of the Reply buffers, Forπexample, and not trust their reported Record sizes.ππJust as an example of how to use the inFormation from the System Callsπbook, here's an example of a Function I slapped together to return aπ3-Character username. Pretty much all the Novell calls work the sameπway: you set up a Request buffer and a Reply buffer, then you read yourπresults into whatever Format you want them. Hope this helps:π}ππFunction GetNetUserID:String;πVarπ NovRegs:Registers;π Answer:String[3];π iii:Integer;π ConnectNo:Byte;π Request : Recordπ Len : Word; {LO-HI}π SubF : Byte;π ConnNum: Word; {HI-LO}π end;π Reply : Recordπ Len : Word; {LO-HI}π ObjID : LongInt; {HI-LO}π ObjType: Word;π ObjName: Array[1..48] of Byte;π LogTime: Array[1..7] of Byte;π end;πbeginπ if (ReqdNetType <> Novell) thenπ GetNetUserID := copy(ParamStr(2),1,3);π if (ReqdNetType = Novell) thenππ beginππ With NovRegs doπ beginπ AH := $dc;π AL := $00;π cx := $0000;π end;ππ MsDos(NovRegs);π ConnectNo:=NovRegs.AL;ππ For iii := 1 to 48 doπ beginπ Reply.ObjName[iii] := $00;π end;ππ With Request doπ beginπ Len := Sizeof(Request) - 2;π SubF := $16;π ConnNum:= (ConnectNo);π end;ππ Reply.Len := Sizeof(Reply) - 2;ππ With NovRegs doπ beginπ AH := $e3;π DS := Seg(Request);π SI := ofs(Request);π ES := Seg(Reply);π DI := ofs(Reply);π end;ππ MsDos(NovRegs);π Answer:=' ';ππ For iii:= 1 to 3 doπ beginπ Answer[iii]:= chr(Reply.ObjName[iii]);π end;ππ GetNetUserID:= Answer;π end;πend; {GetNetUserID}ππ{πThat $e3 in the AH register is the generic bindery call. $16 is theπsubFunction For "Get Connection Name" in the Bindery calls.π}π 5 05-28-9313:52ALL SWAG SUPPORT TEAM ISFILOPN.PAS IMPORT 4 Varπ Fi : File;ππFunction ISOpen(Var Fil:File):Boolean;π(* Returns True is File has is open ON A NETWORK!!! *)πVarπ P:^Byte;πbeginπ P:=@Fil;π If P^=0 then IsOpen:=False else IsOpen:=True;πend;ππbeginπ Assign(Fi,'FileOPEN.PAS');π Writeln(ISOpen(Fi));πend. 6 05-28-9313:52ALL SWAG SUPPORT TEAM LOCKREC.PAS IMPORT 15 {πThe following Program is a slight modification of one posted by ZachπLinnet. The problem is it doesn't lock the use of the File and allowsπmultiple PC's to access the File at the same time. Also, it seems toπtake input from the keyboard when it isn't supposed to and I am unableπto locate why. How could I improve this to actually lock the File?πWhat if I just wanted to lock one or two Records?π}ππProgram Sample_File_Locking_Program;πUsesπ Crt;πTypeπ Fi = File of Integer;πVarπ FileName : String;π f : Fi;π x, n : Integer;π Choice : Char;ππbeginπ {$I-}π FileName := 'e:\test\test.dat';π Assign(f,FileName);π Repeatπ Write('Option [rwq] ? '); choice := ReadKey;π Writeln(choice);π Case choice ofπ 'r' : beginπ Writeln('Attempting to read : ');π Reset(f);π While Ioresult <> 0 doπ beginπ Writeln('Busy waiting...');π Reset(f);π end;π Write('Reading now...');π For x := 1 to 1000 doπ Read(f,n);π Writeln('done!');π Close(f);π end;π 'w' : beginπ Writeln('Attempting to Write : ');π Reset(f);π if Ioresult = 2 thenπ ReWrite(f);π While Ioresult <> 0 doπ beginπ Writeln('Busy waiting...');π Reset(f);π end;π Write('Writing now...');π For x := 1 to 1000 doπ Write(f,x);π Writeln('done!');π Close(f);π end;π end; { Case }π Until Choice = 'q';π {$I+}πend.π 7 08-17-9308:47ALL SWAG SUPPORT TEAM NETINFO Unit IMPORT 60 ,î PROGRAM NetInfo;πUSES Crt, Dos;πCONSTπ Redirector = $08;π Receiver = $80;π Messenger = $04;π Server = $40;π AnyType = $CC;ππTYPEπ String15 = STRING[15];π LocalDevice = ARRAY[1..16] OF Char;π RedirDevice = ARRAY[1..128] OF Char;π DevicePtr = ^DevInfo;π DevInfo = RECORDπ LD : LocalDevice;π RD : RedirDevice;π ND : DevicePtrπ END;ππVAR Done:Boolean;π Name:String15;π Ver:Word;π I,Key:Integer;π DevIn:STRING[16];π RedIn:STRING[128];π LDevice:LocalDevice;π RDevice:RedirDevice;π DeviceList,NextDevice : DevicePtr;ππPROCEDURE ClrCursor;πVAR Regs : Registers;πBEGINπ Regs.CH:=$20;π Regs.AH:=$01;π INTR($10,Regs);πEND;ππPROCEDURE SetCursor;πVAR Regs : Registers;πBEGINπ Regs.AH:=1;π IF LastMode <> Mono THENπ BEGINπ Regs.CH:=6;π Regs.CL:=7π ENDπ ELSEπ BEGINπ Regs.CH:=12;π Regs.CL:=13π END;π INTR($10,Regs);πEND;ππFUNCTION GetExtended : Integer;πVAR CH:Char;πBEGINπ CH:=#0;GetExtended:=0;CH:=ReadKey;π IF Ord(CH)=0 THENπ BEGINπ CH:=ReadKey;π GetExtended:=Ord(CH)π ENDπEND;ππFUNCTION GetFileName(S:STRING):STRING;πVAR FileName:STRING[11];π I:Integer;πBEGINπ FileName:='';π I:=1;π WHILE S[I]<>#0 DOπ BEGINπ FileName[I]:=(S[I]);π I:=I+1π END;π FileName[0]:=Chr(i-1);π GetFileName:=FileNameπEND;ππFUNCTION ChkNetInterface : Boolean;πVAR NetRegs:Registers;πBEGINπ NetRegs.AH:=$00;π INTR($2A,NetRegs);π IF NetRegs.AH = 0 THEN ChkNetInterface:=FALSEπEND;ππPROCEDURE ChkPCLan;πVAR NetRegs:Registers;π ChkType:Integer;πBEGINπ NetRegs.AX:=$B800;π INTR($2F,NetRegs);π IF NetRegs.AH = 0 THENπ WriteLn('Network Not Installed')π ELSEπ BEGINπ ChkType:= NetRegs.BL AND AnyType;π IF (ChkType AND Server > 0) THENπ WriteLn('Server')π ELSEπ IF (ChkType AND Messenger > 0) THENπ WriteLn('Messenger')π ELSEπ IF (ChkType AND Receiver > 0) THENπ WriteLn('Receiver')π ELSEπ IF (ChkType AND Redirector > 0) THENπ WriteLn('Redirector')π ELSEπ WriteLn('Unknown Type')π ENDπEND;ππFUNCTION NetName : String15;πVAR NetRegs:Registers;π Name:ARRAY[1..15] OF Char;ππBEGINπ WITH NetRegs DOπ BEGINπ AH:=$5E;π AL:=$00;π DS:=Seg(Name);π DX:=Ofs(Name)π END;π MsDos(NetRegs);π IF NetRegs.CH<>0 THENπ NetName:=Nameπ ELSEπ NetName:='NOT DEFINED'πEND;ππFUNCTION ChkDrive(DriveNo:Integer):Integer;πVAR DriveRegs: Registers;πBEGINπ WITH DriveRegs DOπ BEGINπ AH:=$44;π AL:=$09;π BL:=DriveNo;π MsDos(DriveRegs);π IF (FLAGS AND 1) = 0 THENπ IF (DX AND $1000) = $1000 THENπ ChkDrive := 1π ELSEπ ChkDrive := 0π ELSEπ ChkDrive := AX * -1π ENDπEND;ππFUNCTION GetDevices: DevicePtr;πVAR NetRegs: Registers;π FstDevice, CurDevice,NewDevice : DevicePtr;π DevName: LocalDevice;π RedName: RedirDevice;π NextDev: Integer;π More : Boolean;ππBEGINπMore:=TRUE;πFstDevice:=NIL;πCurDevice:=NIL;πNextDev:=0;πWHILE More DOπBEGINπ WITH NetRegs DOπ BEGINπ AH:=$5F;π AL:=$02;π BX:=NextDev;π DS:=Seg(DevName);π SI:=Ofs(DevName);π ES:=Seg(RedName);π DI:=Ofs(RedName)π END;π MsDos(NetRegs);π IF (NetRegs.FLAGS AND 1) = 1 THENπ More:=FALSEπ ELSEπ BEGINπ NEW(NewDevice);π NewDevice^.LD:=DevName;π NewDevice^.RD:=RedName;π NewDevice^.ND:=NIL;π IF (CurDevice = NIL) AND (FstDevice=NIL) THENπ BEGINπ CurDevice:=NewDevice;π FstDevice:=NewDeviceπ ENDπ ELSEπ BEGINπ CurDevice^.ND:=NewDevice;π CurDevice:=NewDeviceπ END;π Inc(NextDev)π ENDπEND;πGetDevices:=FstDeviceπEND;ππPROCEDURE AssignDevice(DevName:LocalDevice;π RedName:RedirDevice);πVAR NetRegs: Registers;π DevType: Byte;π Dummy : Integer;ππBEGINπIF Pos(':',DevName)=2 THENπ DevType:=4π ELSEπ DevType:=3;ππ WITH NetRegs DOπ BEGINπ AH:=$5F;π AL:=$03;π BL:=DevType;π CX:=0;π DS:=Seg(DevName);π SI:=Ofs(DevName);π ES:=Seg(RedName);π DI:=Ofs(RedName)π END;π MsDos(NetRegs);π IF (NetRegs.FLAGS AND 1) = 1 THENπ BEGINπ TextColor(Red);GotoXY(WhereX+6,WhereY);π WriteLn('An Error Occurred on Assign');π TextColor(Red+128);GotoXY(WhereX+13,WhereY);π Write('Press Any Key');π Dummy:=GetExtended;π TextColor(White);π ClrScrπ ENDπEND;ππPROCEDURE DeleteDevice(DevName:LocalDevice);πVAR NetRegs: Registers;π Dummy : Integer;ππBEGINπ WITH NetRegs DOπ BEGINπ AH:=$5F;π AL:=$04;π DS:=Seg(DevName);π SI:=Ofs(DevName)π END;π MsDos(NetRegs);π IF (NetRegs.FLAGS AND 1) = 1 THENπ BEGINπ TextColor(Red);GotoXY(WhereX+6,WhereY);π WriteLn('An Error Occurred on Delete');π TextColor(Red+128);GotoXY(WhereX+13,WhereY);π Write('Press Any Key');π Dummy:=GetExtended;π TextColor(White);π ClrScrπ ENDπEND;ππFUNCTION SrchDevice(Drive:LocalDevice):DevicePtr;πVAR NDevice:DevicePtr;πBEGINπ NDevice:=GetDevices;π WHILE (NDevice <> NIL) ANDπ (Copy(NDevice^.LD,1,3) <>π Copy(Drive,1,3)) DOπ BEGINπ NDevice:=NDevice^.NDπ END;πSrchDevice:=NDeviceπEND;ππPROCEDURE DisplayDrives;πVAR I:Integer;π LDevice:LocalDevice;π NextDevice : DevicePtr;πBEGINπ FOR I:=1 TO 26 DOπ BEGINπ CASE ChkDrive(I) OFπ 0 : BEGINπ Write(#32,#32,Chr(64+I),':');π GotoXY(WhereX+3,WhereY);π WriteLn('Local')π END;π 1 : BEGINπ Write(#32,#32,Chr(64+I),':');π GotoXY(WhereX+3,WhereY);π Write('Remote');π LDevice[1]:=Chr(64+I);π LDevice[2]:=':';π LDevice[3]:=#0;π NextDevice:=SrchDevice(LDevice);π GotoXY(WhereX+7,WhereY);π WITH NextDevice^ DOπ WriteLn(Copy(RD,1,Pos(#0,RD)))π ENDπ ENDπ ENDπEND;ππPROCEDURE ScrnSetup;πBEGINπ ClrCursor;π TextBackground(Blue);π TextColor(White);π ClrScr;π GotoXY(30,2);Write('Network Status');π TextColor(LightGray);π GotoXY(2,5);Write('Dos Version:');π GotoXY(21,5);Write('Network Name:');π GotoXY(51,5);Write('Node Type:');π TextColor(White);π GotoXY(31,7);Write('Drive Status');π TextColor(LightGray);π GotoXY(20,9);Write('Drive');π GotoXY(27,9);Write('Location');π GotoXY(40,9);Write('Connection');π GotoXY(15,25);Write('F1 - Assign Device');π GotoXY(35,25);Write('F2 - Delete Device');π GotoXY(55,25);Write('F10 - Exit');π TextBackground(Black);π Ver:=DosVersion;π GotoXY(15,5);π WriteLn(Lo(Ver),'.',Hi(Ver))πEND;ππPROCEDURE SetScreen(W,X,Y,Z,Back,Txt:Integer);πBEGINπ Window(W,X,Y,Z);π TextColor(Txt);π TextBackground(Back);π ClrScrπEND;ππBEGINπ ScrnSetup;π IF ChkNetInterface THENπ BEGINπ GotoXY(35,5); WriteLn(NetName);GotoXY(62,5);π ChkPCLan;π Window(20,10,60,20);ClrScr;π DisplayDrives;π REPEATπ SetScreen(20,21,60,24,Blue,White);π Key:=GetExtended;π CASE Key OFπ 59:BEGINπ SetCursor;π Write('Drive to Redirect ');π ReadLn(DevIn);π Write('Remote Definition ');π ReadLn(RedIn);π ClrCursor;π FOR I:= 1 TO Ord(DevIn[0]) DOπ LDevice[I]:=DevIn[I];π LDevice[Ord(DevIn[0])+1]:=#0;π FOR I:= 1 TO Ord(RedIn[0]) DOπ RDevice[I]:=RedIn[I];π RDevice[Ord(RedIn[0])+1]:=#0;π AssignDevice(LDevice,RDevice)π END;π 60:BEGINπ Write('Drive to Delete ');π SetCursor;π ReadLn(DevIn);π ClrCursor;π FOR I:= 1 TO Ord(DevIn[0]) DOπ LDevice[I]:=DevIn[I];π LDevice[Ord(DevIn[0])+1]:=#0;π DeleteDevice(LDevice)π ENDπ END;π SetScreen(20,10,60,20,Black,LightGray);π DisplayDrives;π UNTIL Key = 68;ππ ENDπ ELSEπ WriteLn('NetBIOS Interface Not Available')πEND.ππ 8 08-27-9321:42ALL JEFF SHANNON Novell File Locking IMPORT 14 ,î {πJEFF SHANNONππNovell/File Locking/Sharingππ> Does anyone have any samples of network File sharing/access code For Turboπ> Pascal/Borland Pascal 6-7.ππThis is from the Advanced Turbo Pascal Techniques book by Chris Ohlsen andπGary Stroker. It's For TP 5.5 but I'm sure you could make use of it.ππOops, I hope I didn't violate any copyright laws by posting this code. Iπdoubt the authors of the book would sue me as it is a FINE book and Iπrecommend it to all. Now the publishers are a different story...π}ππUnit FileLock;ππInterfaceππUsesπ Dos;ππFunction Lock(Var UnTyped; pos, size : LongInt) : Boolean;πFunction UnLock(Var UnTyped; pos, size : LongInt) : Boolean;ππImplementationππFunction Lock(Var UnTyped; pos, size : LongInt) : Boolean;πVarπ reg : Registers;π f : File Absolute UnTyped;ππbeginπ pos := pos * FileRec(f).RecSize;π size := size * FileRec(f).RecSize;π reg.AH := $5C;π reg.AL := $00;π reg.BX := FileRec(f).Handle;π reg.CX := Hi(pos);π reg.DX := Lo(pos);π reg.SI := Hi(size);π reg.DI := lo(size);π Intr($21, reg);π if ((reg.Flags and FCarry) <> 0) thenπ Lock := Falseπ elseπ Lock := True;πend;ππFunction UnLock(Var UnTyped; pos, size : LongInt) : Boolean;πVarπ reg : Registers;π f : File Absolute UnTyped;πbeginπ pos := pos * FileRec(f).RecSize;π size := size * FileRec(f).RecSize;π reg.AH := $5C;π reg.AL := $01;π reg.BX := FileRec (f).Handle;π reg.CX := Hi(pos);π reg.DX := Lo(pos);π reg.SI := Hi(size);π reg.DI := Lo(size);π Intr($21, reg);π if ((reg.Flags and FCarry) <> 0) thenπ Unlock := Falseπ elseπ Unlock := True;πend;ππend.π 9 08-27-9321:42ALL ROBERT KOHLBUS Netware Bindary Object IMPORT 39 ,î {πRobert C. Kohlbusππ I'm trying to compile and run a program that I wrote, with BP70π'real' mode, in 'Protected Mode'. This program uses Interrupt 21hπfunctions B80Xh and E3h, the Novell Netware ones. The program worked fineπin 'real' mode, but gives incorrect information in 'Protected Mode'. Afterπcalling Borland, they said it was because the DPMI overlay file didn't knowπhow to handle the interrupts I was trying to access. They suggested that Iπlook at a file from their BBS called READWRTE.PAS that shows how to handleπinterrupts in a 'Protected Mode' program. Basically this example file, justπinterrupt 31h (Simulate Real Mode Interrupt). My problem is that my programπcontinues to hang up, even after following their example. Below is a sampleπpart of my program. If anyone can lend a hand, I would be in their debt.π}ππProgram Getid; { Get unique Id for Novell Netware Bindery Object }ππusesπ Dos, Crt, WinApi;ππtypeπ TDPMIRegs = recordπ edi, esi, ebp, reserved, ebx, edx, ecx, eax: LongInt;π flags, es, ds, fs, gs, ip, cs, sp, ss : Word;π end;ππvarπ Hexid : string;π R: TDPMIRegs;ππ RequestBuffer : recordπ PacketLength : integer;π functionval : byte;π ObjectType : packed array [1..2] of byte;π NameLength : byte;π ObjectName : packed array [1..47] of char;π end;ππ ReplyBuffer : recordπ ReturnLength : integer;π UniqueID1 : packed array [1..2] of byte;π UniqueID2 : packed array [1..2] of byte;π ObjectType : packed array [1..2] of byte;π ObjectName : packed array [1..48] of byte;π end;πππfunction DPMIRealInt(IntNo, CopyWords: Word; var R: TDPMIRegs): Boolean; assembler;πasmπ mov ax, 0300hπ mov bx, IntNoπ mov cx, CopyWordsπ les di, Rπ int 31hπ jc @errorπ mov ax, 1π jmp @doneπ@error:π xor ax, axπ @Done:πend;ππfunction LongFromBytes(HighByte, LowByte: Byte): LongInt; assembler;πasmπ mov dx, 0π mov ah, HighByteπ mov al, LowByteπend;ππfunction LongFromWord(LoWord: Word): LongInt; assembler;πasmπ mov dx, 0π mov ax, LoWord;πend;ππfunction RealToProt(P: Pointer; Size: Word; var Sel: Word): Pointer;πbeginπ SetSelectorBase(Sel, LongInt(HiWord(LongInt(P))) Shl 4 + LoWord(LongInt(P)));π SetSelectorLimit(Sel, Size);π RealToProt := Ptr(Sel, 0);πend;πππprocedure GetObjectID(Name : string; ObjType : Word);πconstπ HEXDIGITS : Array [0..15] of char = '0123456789ABCDEF';ππvar Reg : Registers;π i : integer;π Hex_ID, S : string;π ErrorCode : word;π ObjectId : array[1..8] of byte;πππbeginπ with RequestBuffer doπ beginπ PacketLength := 52;π FunctionVal := $35;π ObjectType[1] := $0;π ObjectType[2] := ObjType;π NameLength := length(Name);π for i := 1 to length(Name) doπ ObjectName[i] := Name[i];π end;π ReplyBuffer.ReturnLength := 55;ππ { Original Code that worked in Real Mode }π{π Reg.ah := $E3;π Reg.ds := seg(RequestBuffer);π Reg.si := ofs(RequestBuffer);π Reg.es := seg(ReplyBuffer);π Reg.di := ofs(ReplyBuffer);ππ MsDos(Reg);π}ππ { New Code From Borland Example }π FillChar(R, SizeOf(TDPMIRegs), #0);π R.Eax := $E3;π R.ds := seg(RequestBuffer);π R.Esi := LongFromWord(ord(RequestBuffer));π R.es := seg(ReplyBuffer);π R.Edi := LongFromWord(ord(ReplyBuffer));π DPMIRealInt($21, 0, R);ππ{π S := 'None';π Errorcode := Reg.al;π if Errorcode = $96 then S := 'Server out of memory';π if Errorcode = $EF then S := 'Invalid name';π if Errorcode = $F0 then S := 'Wildcard not allowed';π if Errorcode = $FC then S := 'No such object *'+QueueName+'*';π if Errorcode = $FE then S := 'Server bindery locked';π if Errorcode = $FF then S := 'Bindery failure';π S := 'Error : '+ S;π Writeln(S);π}π Hex_ID := '';ππ Hex_ID := hexdigits[ReplyBuffer.UniqueID1[1] shr 4];π Hex_ID := Hex_ID + hexdigits[ReplyBuffer.UniqueID1[1] and $0F];π Hex_ID := Hex_ID + hexdigits[ReplyBuffer.UniqueID1[2] shr 4];π Hex_ID := Hex_ID + hexdigits[ReplyBuffer.UniqueID1[2] and $0F];π Hex_ID := Hex_ID + hexdigits[ReplyBuffer.UniqueID2[1] shr 4];π Hex_ID := Hex_ID + hexdigits[ReplyBuffer.UniqueID2[1] and $0F];π Hex_ID := Hex_ID + hexdigits[ReplyBuffer.UniqueID2[2] shr 4];π Hex_ID := Hex_ID + hexdigits[ReplyBuffer.UniqueID2[2] and $0F];π while Hex_ID[1] = '0' doπ Hex_ID := copy(Hex_ID,2,length(Hex_ID));ππ Hexid := Hex_ID;ππend;ππbeginπ Hexid := '';π ClrScr;ππ { Get An Objects Idπ Parameters (2) Object Name, Object Typeπ Object Name = String[8];π Object Type = Word;π 1 Userπ 2 User Groupπ 3 Print Queueπ 4 File Serverπ 5 Job Serverπ 6 Gatewayπ 7 Print Serverπ }π GetObjectID('BUSINESS', 3); { Get Print Queue's ID }π Writeln('Hexid for BUSINESS is ',hexid);ππend.π 10 08-27-9321:49ALL KERRY SOKALSKY Network "Real" name IMPORT 19 ,î {π-> I don't have an answer to your question, but would you happen to knowπ-> how to return a user's full name (as stored in syscon)? Thanks.ππI assume you already have the user's login name. Here is a procedureπthat will get a user's full name. If you are going to do a lot ofπNetware programming I suggest you get "Programmers Guide to Netware" byπCharles Rose. ISBN # 0-07-607029-8. It documents all of the Netwareπfunctions and also talks about IPX/SPX programming.π}ππUsesπ Dos;ππVarπ Regs : Registers;ππFunction Full_Name(User_Name : String) : String;πTypeπ RequestBuffer = Recordπ RequestBufferLength : Word;π Code : Byte;π ObjectType : Word;π ObjectNameLength : Byte;π ObjectName : Array[1..48] of char;π SegmentNumber : Byte;π PropertyNameLength : Byte;π PropertyName : Array[1..15] of char;π end;ππ ReplyBuffer = Recordπ ReplyBufferLength : Word;π PropertyValue : Array[1..128] of char;π MoreSegments : Byte;π PropertyFlags : Byte;π end;ππVarπ Request : RequestBuffer;π Reply : ReplyBuffer;π PropertyName : String[15];π Counter : Byte;π Temp : String[128];ππbeginπ PropertyName := 'IDENTIFICATION';π Request.RequestBufferLength := SizeOf(Request) - 2;π Request.Code := $3D;π Request.SegmentNumber := 1;π Request.ObjectType := $0100;π Request.ObjectNameLength := SizeOf(Request.ObjectName);π FillChar(Request.ObjectName, SizeOf(Request.ObjectName), #0);ππ For Counter := 1 to length(User_Name) doπ Request.ObjectName[Counter] := User_Name[Counter];ππ Request.PropertyNameLength := SizeOf(Request.PropertyName);π FillChar(Request.PropertyName, SizeOf(Request.PropertyName), #0);ππ For Counter := 1 to Length(PropertyName) doπ Request.PropertyName[Counter] := PropertyName[Counter];ππ Regs.AH := $E3;π Regs.DS := Seg(Request);π Regs.SI := Ofs(Request);ππ Reply.ReplyBufferLength := SizeOf(Reply) - 2;π Regs.ES := Seg(Reply);π Regs.DI := Ofs(Reply);ππ MSDos(Regs);ππ Temp := '';π Counter := 1;π While (Reply.PropertyValue[Counter] <> #0) doπ beginπ Temp := Temp + Reply.PropertyValue[Counter];π inc(Counter);π end;π Full_Name := Temp;πend;ππbeginπ Writeln(Full_Name('SOKALSKY'));πend. 11 11-21-9309:50ALL JIM ROBB WHOBE For NETWARE SWAG9311 28 ,î {πFrom: JIM ROBBπSubj: Re: Netware "User name"ππ I need a way to get the current user name from the netware shell.π For instance, if I'm logged into server MYSERVER as user SUPERVISOR,π I need some way to get 'supervisor' as the user name...ππThis should do the job. The two calls are "Get Connection Number" (DCh) andπ"Get Connection Information" (E3h 16h), both from the Connection Services API.πThe calls work with Advanced Netware 1.0 and all later versions. Code testedπon 3.11 NetWare.ππBeware the weak error-checking - the program doesn't check the version ofπNetware, or even that the user is logged onto the network.π}ππprogram WhoBeMe;ππuses Dos;πππprocedure GetUserName( var UserName : string );ππvarπ Request : record { Request buffer for "Get Conn Info" }π Len : Word; { Buffer length - 2 }π Func : Byte; { Subfunction number ( = $16 ) }π Conn : Byte { Connection number to be researched }π end;ππ Reply : record { Reply buffer for "Get Conn Info" }π Len : Word; { Buffer length - 2 }π ID : Longint; { Object ID (hi-lo order) }π Obj : Word; { Object type (hi-lo order again) }π Name : array[ 1..48 ] of Byte; { Object name as ASCII string }π Time : array[ 1.. 7 ] of Byte; { Y, M, D, Hr, Min, Sec, DOW }π { Y < 80 is in the next century }π { DOW = 0 -> 6, Sunday -> Saturday }π Filler : Byte { Call screws up without this! }π end;ππ Regs : Registers;π W : Word;ππbeginπ Regs.AX := $DC00; { "Get Connection Number" }π MsDos( Regs );π { "Get Connection Information" }ππ with Request do { Initialize request buffer: }π beginπ Len := 2; { Buffer length, }π Func := $16; { API function, }π Conn := Regs.AL { Returned in previous call! }π end;ππ Reply.Len := SizeOf( Reply ) - 2; { Initialize reply buffer length }ππ with Regs doπ beginπ AH := $E3; { Connection Services API call }π DS := Seg( Request ); { Location of request buffer }π SI := Ofs( Request );π ES := Seg( Reply ); { Location of reply buffer }π DI := Ofs( Reply );π MsDos( Regs )π end;ππ if ( Regs.AL = 0 ) { Success code returned in AL }π and ( Hi( Reply.Obj ) = 1 ) { Obj of 1 is a user, }π and ( Lo( Reply.Obj ) = 0 ) then { stored Hi-Lo }π with Reply doπ beginπ Move( Name, UserName[ 1 ], 48 ); { Convert ASCIIZ to string }π UserName[ 0 ] := #48;π W := 1;π while ( UserName[ W ] <> #0 )π and ( W < 48 ) doπ Inc( W );π UserName[ 0 ] := Char( W - 1 )π endπ elseπ UserName := ''πend;ππvarπ TheName : string;ππbeginπ GetUserName( TheName );π WriteLn( 'I be ', TheName )πend.π 12 11-21-9309:43ALL NORBERT IGL NETWARE User name SWAG9311 15 ,î {πFrom: NORBERT IGLπSubj: Netware "User name"ππ I need a way to get the current user name from the netware shell.π For instance, if I'm logged into server MYSERVER as user SUPERVISOR,π I need some way to get 'supervisor' as the user name. (Kind of likeπ WHOAMI would return: You are user SUPERVISOR on server MYSERVER)π}ππuses dos;ππfunction lStationNumber:byte; { MY logical Station(connection)-Number }πvar regs : Registers;πbeginπ regs.ah := $DC;π MsDos(regs );π lStationNumber := pcregs.al;πend;ππfunction GetUserName( Station: byte):String;πVarπ i : byte;π Regs : Registers;π name : string[50];π Reply : Recordπ Filler1 : Array [1..8] of byte;π ObjectName : Array [1..48] of Byte;π Filler2me : Array [1..8] of Byte;π End;π Request : Recordπ PacketLen : Integer;π vFunc : Byte;π ConnNb : Byte;π End;ππBeginπ With Request doπ beginπ PacketLen := 2;π vFunc := 22;π ConnNbm := Station;π End;π Reply.ReturnLength := 62;π With Regs Do Beginπ Ah := $e3;π Ds := Seg(Request);π Si := Ofs(Request);π Es := Seg(Reply);π Di := Ofs(Reply);π End;π MsDos(Reg);π { 1 2 3 4 }π {123456789012345678901234567890123456789012345678}π name := ' ';π If Regs.al = 0 Then with reply doπ beginπ move( objectName[1] , name[1], 48 );π i := pos(#0, name );π name[0] := char(i-1);π end;πend;ππ[...]ππvar me : byte;ππbeginπ me := lStationNumber;π writeln(' Hello, ', GetUserName( me ),π ' you''re hooked in on Station # ', me );πend.π
